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CLUBE Zs0 


Nem sempre o nosso jornal, ou «Boletim», ou «Revista» 
publica um Editorial. 


O EDITORIAL justifica-se quando existe qualquer coisa que 
implica uma mudança de rumo ou uma dificuldade na 
orientação que se deve imprimir a estas páginas ou ainda 
uma chamada geral, que por sua vez implica uma resposta 
de quem lê. 


De quando em quando, toca o alarme, quando as listagens 
dos sócios que terminaram a assinatura do nosso jornal, atin- 
gem um índice superior a 40 %, sem que façam a respectiva 
renovação. 


Não é demais chamar a atenção para o facto de que esta 
publicação não possui fins lucrativos. Quando muito, fica- 
riamos felizes se as despesas da sua edição fossem sempre 
cobertas pelas assinaturas dos sócios. 


|entem divulgar a existência deste jornal pois só assim fica 
assegurada a continuidade deste trabalho. 

Coloca-se sempre a questão: Será que os assinantes são 
também leitores? 


Tudo o que nós publicamos, tem real interesse? 


Será que uma vez ou outra devemos modificar completa- 
mente, o formato ou orientação deste jornal mensal? 


Na última expedição, verificamos que cerca de 160 assinan- 
tes, teriam de renovar a assinatura, e sempre que este desa- 
fio aparece, nós pessoalmente trememos pela continuidade 
do jornal. Continuamos a acreditar que é possível fazer qual- 
quer coisa no campo das publicações apenas com a certeza 
de que os custos serão pagos pelos assinantes e não pela 
publicidade. Se não quer continuar a assinar o nosso jornal e 
portanto a fazer parte deste grupo de gente diferente, diga- 
-nos a razão. Talvez procedendo assim, nos ajude a encon- 
trar o caminho certo! 


O melhor meio de contactarmos os dois ........ quem orienta e 
iquele que lê ........ é através de uma mensagem; não esque- 
ça que nós precisamos de saber o que lhe interessa mais 
receber nestas páginas ........ por favor escreva! 


Alexandre Sousa 


Autor: FERNANDO PRECES 
SACAVÉM 


PARTE Ill — COMO FUNCIONA O Z80 


4.3. — As mnemónicas do z80 (Continuação) 


Neste caso, a indicação do carry significa subtrair 1 ao resul- 
tado, quando usada a instrução apropriada (SBC - Subtração 
com carry). Para manipular esta instrução é preciso, porém 
um certo cuidado. 


Veja com atenção os ensaios respectivos. 


OS COLABORADORES DO JORNAL DO CLUBE Z 80 


Tornar o Clube Z 80 mais activo, passa necessariamente, por 
colocar alguns dos que assinam esta publicação, numa posi- 
ção diferente do simples espectador (leitor). 

Tempos atrás, entregamos uma cassete, oferecida por gente 
amiga de VISEU, com alguns programas dedicados aos 
Rádio-Amadores, a um dos nossos sócios e amigos, devido 
aos insistentes pedidos desse nosso amigo (um abraço ao 
Victor Lima), de que gostaria de colaborar em algo de útil. 
Cinco meses depois, ainda continuamos esperando, que os 
célebres programas possam ser publicados... 

O Clube Z 80, assina várias revistas internacionais, e possui 
imensa literatura que podia ser traduzida e adaptada, para 
publicação nas nossas páginas. 

Estamos inteiramente abertos, a que vários dos nossos ami- 
gos e amigas, assumam a responsabilidade de traduzir, 
testar e depurar de lixo, uma montanha de material que pode 
ser publicado, e assim melhorar o conteúdo do nosso jornal. 
Deste modo, se TU, membro do Clube Z 80, TE QUERES 
RESPONSABILIZAR por uma dada secção periódica ou não, 
tens as nossas páginas abertas, e poderás receber a partir 
de agora, material (páginas fotocopiadas), em que existem 
temas e programas, que deverão ser publicados. 

Deverás dizer-nos em que secção ou página específica, que- 
res colaborar, escreve-nos a dizer se preferes os textos em 
Francês ou Inglês, e qual a periodicidade com que queres 
receber os textos de apoio. 

Secções ou Títulos possíveis são: 


LINGUAGEM MÁQUINA — JOGOS — AVENTURAS — ES- 
TRATÉGIA — EDUCAÇÃO 

HARDWARE — ROBÓTICA — RÁDIO-AMADORISMO — 
BASIC — PASCAL — FORTH — C 

INFORMÁTICA MÉDICA — INFORMÁTICA APLICADA À 
PRODUÇÃO 

etc., etc., etc. 


Ficamos a aguardar as tuas notícias, as tuas ideias e a tua 
disponibilidade. 


Alexandre Sousa 


(Cont. dos números anteriores) 


1.º Subgrupo — Instruções SUB 


Este conjunto de instruções destina-se somente aos registros 
simples e tendo como interveniente principal o registro A. 
Assim a mnemónica SUB foi simplificada referenciando ape- 
nas o segundo interveniente. 

Antes da operação indicada por uma destas instruções, o flag 
N é passado a 1 (indica ao Z80 que terá de haver uma sub- 
tracção) e os restantes flags, irão refletir o estado do Acumu- 


lador, após a operação. 


4 


222222, 
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Mnemónicas Códigos Tempos 
SUB N 214, N 
SUB A 151 
SUB H 148 
SUB L 149 
SUB B 144 Iguais aos 
SUB C 145 indicadores nas 
SUB D 146 instruções ADD 
SUB E 147 
SUB (HL) 150 
SUB (IX + d) 221, 150 +d 
SUB (IY + d) 253, 150 +. d 
Ensaio 1: 
Mnemónicas Códigos Comentários 
LD HL, 27100 33; 220, 105 Apontador 
LD A, 100 62, 100 

Coloca A, 
LD (HL), A 119 no endereço 

apontado 
LD A, 255 62, 255 
LB -E;, BO 30, 50 
SUB E 147 (A — E) 
SUB 100 214, 100 (A — N) 
SUB (HL) 150 (A — (HL)) 
LD B, O 6, O Resultado 
LD C, A 79 transferido 
RET 201 para o BASIC 

(R: 5) 


Exemplifica-se neste ensaio a introdução de 3 instruções 
deste subgrupo. 


Ensaio 2: Uso incorrecto duma instrução SUB 


Mnemónicas Códigos Comentários 
LD A, 20 62, 20 
LD E, 30 Sa, do A subtração é incorrecta 
SUB E 147 
o porque E > que 
LD B, O 6,0 acumulador 
LD C, A 79 
RET 201 

Resultado esperado — 10 

» obtido  — 246 


Analisando o estado dos flags antes e depois da operação 
SUB, verifica-se que o Z80 foi avisado do resultado não ser 
o correcto, e que tomou providências para poder reconhecer 
o resultado real. Não o fêz, porque a sequência de instruções 
que o poderia solicitar, não foi introduzida pelo programa. 


Estado dos flags antes da operação SUB (posição 1) e após 
a operação (posição 2). 


Que nos dizem então os flags? 
Neste caso apenas nos interessa a análise dos flags (S) 
e (C). 


1) Flag C— O carry-flag indica que foi ultrapassado o míni- 
mo acumumulável no registo interveniente. 

2) Flag S— O sinal-flag indica que o número contido no re- 
gisto interveniente é negativo e que se encontra sobre a 
forma de complemento por dois. 


Ora nós já falamos sobre o 2.º complemento aritmético e as 
suas formas de representação. 
Sabemos que esses números estão compreendidos entre 
— 127 a + 128 e que o 8.º bit indicará o sinal respectivo. 
Então: 
bit de sinal 
- 
246 (10) = 1 111 0110 (2) 


Se retirarmos 1 unidade ao número binário, 
1110110 — 1 = 1110101 a 


e negarmos o resultado; 


1110101 = 0001010 


verifica-se que o resultado real é (—) 10; ou ainda, por um 
processo muito mais rápido: 


246 — (1*218) 
= 246 — (1* 256) = — 10 


A forma de forçar a máquina a devolver ao Basic um resulta- 
do negativo, envolve instruções de que ainda não falamos, 
bem como a manipulação das rotinas de cálculo em numera- 
ção com ponto flutuante, situadas na ROM, que estudaremos 
no próximo capítulo. 

Utilizando o retomo ao Basic após a operação, e nalguns 
casos as instruções SBC, poderá o leitor para já contornar o 
problema. 

Vamos ver como. 


2.º Subgrupo — As instruções SBC Y 


Também aqui o flag N é comutado para 1 e os restantes flags 
reflectirão o estado do registo interveniente após a operação. 
Os tempos de execução são iguais aos das instruções ADC 


(ver grupo 6). 


Mnemónicas Códigos 
SBC A, +N 222, + N 
SBC A, À 159 
SBC A, H 156 
SBC A, L 157 
SBC A, B 152 
SBC A, C 153 
SBC A, D 154 
SBC A, E 155 
SBC A, (HL) 158 
SBC A, (IX + d) 221, 158, +d 
SBC A, (IY + d) 253, 158, +d 
SBC HL, HL es! SB 
SBC HL, BC 237, 66 
SBC HL, DE 2”, 82 
SBC HL, SP 237, 114 


(“ 
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Já aqui foi afirmado, mas repete-se dada a sua importância, 
que apenas o registo À ou o par HL foram concebidos no 
Z80, para efectuarem operações aritméticas ou lógicas. 

Na elaboração dum programa em C/M deve-se assegurar a 
cada momento uma certa disponibilidade destes registos, 
pois é necessário ter em conta que um computador numérico 
executa todo o tipo de manipulação binária à base de cálculo. 


Ensaio 1: Subtracção em que o maior número se encontra 
no registo BC e o menor em HL. 


RAMTOP em 27.999 


LD BC, 57000 1, 168, 122 Colocação dos registos 
LD Hi, 27000" 33, 120, 105 nas condições propostas 


AND A 167 Carry reset “0” 

LDA, C 121 LOW BYTE de BC PARA A 

SUB L 149 subtrai com LOW BYTE de HL 
WD CA 79 

LDA, B 120 HIGH BYTE de BC para A 

SBC A H 156 subtrai os HIGH BYTE com CARRY 

LD B, A 71 

RET 201 

PRINT  USR 28000 


(Resultado: 30000) 


Ensaio 2 — Subtrair B do conteúdo de HL. 


LD HL, 29000 SS pes TIS Colocação dos registos 
LD (HL), 200 54, 200 nas condições 
LD B, 100 6, 100 | propostas 


3 
LD A, (HL) 126 
SUB B 114 
LD (HL), A 119 
RET 201 
RANDOMIZE USR 28000 
PRINT PEEK 29000 


(Resultado: 100) 


Ensaio 3 — Subtracção cujo resultado é um valor negativo. 


Conforme já mencionei este processo é meramente de- 
monstrativo, pelo facto de exigir um retorno ao Basic ao fim 
de cada subtracção. 


AND A 167 
LD A, 20 62, 20 

LD E, 30 30, 30 

cup E A bye 
LD (29000), A 50, 72, 113 p o 
SBC A, A 159  (A-A)- cary= 255 
LD (29001), A 50, 73, 113 

RET 


RANDOMIZE USR 28000 

LET N = PEEK 29000 

IF PEEK 29001 = 255 THEN GOTO (x) 
PRINT N 

STOP 


(x) LETK=1+2T8 [(1+2+8) para o ZX81] 
PRIN N-—K (RESULTADO: — 10) 


(Continua no próximo número) 


Autor: Alexandre Sousa 


Pretende-se nesta coluna, ir transmitindo um tipo de expe- 
rência diferente. 

Diferente do jogo simples ..... tecla 5 esq ..... tecla 6... 
descer ..... tecla 7..... subir ..... tecla 8..... direita. 

Nem todos os que abrem as páginas do Clube Z 80, querem 
o jogo, nem todos os que o procuram querem ou estão preo- 
cupados com o Hardware. Não defendemos que no meio 
está a virtude, mas sabemos que hoje queremos escrever 
sobre o Hardware, portanto quem tiver unhas que se 
agarre ..... ! 

INPUT/OUTPUT: o «hardware» é o mundo dos homens do 
ferro de soldar, dos que conhecem os fios, os circuitos inte- 
grados, e dos que são chamados quando queremos ligar o 
computador ao mundo externo. 

Ligar ao mundo externo significa ligar o computador ao televi- 
sor, à impressora, ao termómetro, ligar ou desligar o alarme, 
receber a indicação do electrocardiógrafo ou comandar o se- 
máforo da rua. 
Tudo isso é 
/saída. ........ 
Qualquer computador, independentemente do fabricante, 
pode processar milhares de operações por segundo. Se não 


INPUT/OUTPUT ou seja ........ entrada/ 


existe comunicação com o exterior, o seu uso é verdadeira- 
mente limitado. Portanto, quando existe Input/Output existe a 
ligação autentica com a resolução de problemas. Input/Ou- 
tput é o termo usado para descrever a ligação com o mundo 
externo ao computador. Para discutirmos ou falarmos de en- 
tradas e saídas, teremos de conhecer o computador (ele 
mesmo!), e partir desse ponto para conhecermos o modo co- 
mo ele comunica com o exterior. ida 
De um modo geral, podemos dizer que o computador, possui 
dois blocos fundamentais: PROCESSADOR e MEMÓRIA. 
O processador (verdadeiro motor do sistema!) segue uma 
determinada sequência de instruções que vai fazer com que 
sejam manipulados dados, ou seja irá apresentar esses da- 
dos de uma determinada forma, tratados ou alterados em re- 
lação à sua forma original. — 
A sequência de instruções e os dados serão guardados .na 
memória para uso (e abuso) do processador. ; 
Três tipos de ligações eléctricas, chamadas BUSES, são 
usadas pelo PROCESSADOR para estabelecer a comunica- 
ção com a MEMÓRIA: 

ADRESS BUS (bus de endereços) ........ liga o processador a 
uma posição determinada. 
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DATA BUS (bus de dados) ........ comunica dados de e para o 
processador. 

CONTROL BUS (bus de controlo) ........ permite designar que 
e quem está em comunicação com o processador. 


BUS 


memoria processador 


de 
ENDEREÇOS 


perifer. 


metodo 1 


FIGURA 1 


A memória de um computador está organizada em milhares 
de posições físicas, cada um das quais possui um endereço 
único e a possibilidade de guardar um dado ou uma instrução 
(são coisas diferentes!). 

O processador pode ter acesso a toda a informação que está 
em memória, colocando o seu «pedido» no ADRESS BUS. 
Esse sinal (pedido) estará representado pelo endereço da 
posição de memória que interessa ao processador. Ele 
mesmo (processador) terá de especificar se pretende extrair 
informação (READ — ler —) ou se pretende colocar informa- 
ção (WRITE — escrever —) nessa posição de memória. 
Este tipo de sinal READ/WRITE é colocado no CONTROL 
BUS, o qual contém uma linha de sinalização que permitirá o 
sincronismo (actuar ao mesmo tempo), entre o processador e 
a memória. 

Desde que exista esse sinal, poderá ser trocada informação 
entre o PROCESSADOR e a MEMÓRIA através do DATA 
BUS. 

O Processador distingue entre DADOS e INSTRUÇÕES de- 
vido a um ciclo de temporização interno, ou seja, inicialmente 
(INSTRUCTION FETCH) procura instruções e executa as 
operações designadas nesse tipo de instrução. 


Existe uma posição no interior do processador para reter a ' 


(ou as) instruções a executar no momento; esse registo 
chama-se contador do programa — PROGRAM COUNTER. 
A instrução indicada pelo contador do programa pode ser a 
de ir procurar numa posição de memória, um dado e actuar 
sobre ele (modificando-o) ou, pelo contrário, escrever um 
dado numa posição de memória. 


OPERAÇÕES DO COMPUTADOR 


Para que o computador possa fazer correr um programa 
(RUN), o computador deve: 


— ter acesso à memória para obter instruções 
— ter acesso à memória para obter dados 

— processar dados 

— colocar os dados processados na memória 


Podemos colocar duas questões: 


a) Como obter programa e dados da memória? 
b) Como obter os resultados do programa? 


Resposta: através dos dispositivos de INPUT/OUTPUT 
(entrada/saída). 


Um sistema completo, como estamos habituados a ver quan- 
do olhamos para um APPLE // ou para um IBM PC, não está 
composto apenas por um Processador e por uma Memória. 
Possui dispositivos separados: unidade central (processador 
e memória); Teclado; Monitor; Impressora e Drive para 
diskettes, tudo isto alimentado a 220 volts C.A. 

O Spectrum, que geralmente gira à nossa volta, possui uma 
unidade integrada, — teclado, processador, memória — o 
monitor e o T.V. — e possui ou não impressora e gravador de 
cassettes (eventualmente: microdrive). Tudo aquilo que não é 
PROCESSADOR e MEMÓRIA INTERNA será considerado 
Mundo Exterior. 


ATENÇÃO: a fita da cassette ou microcassette (waffer) e a 


película da diskette, são considerados como memória o É 
terna ou de massa! 


COMO ESTÃO LIGADOS OS DISPOSITIVOS EXTERNOS 
AO CONJUNTO PROCESSADOR/MEMÓRIA? 


Dois métodos podem ser usados: 


O primeiro deles, e o mais simples, consiste em colocar os 
dispositivos no ADRESS BUS como se fossem posições de 
memória (a primeira vez que projectamos e construímos um 
microcomputador, usamos este método). 


O processador pode enviar dados para ..... ou obter dados 
de ..... a partir dos periféricos (dispositivos externos) usando 
instruções do tipo MEMORY-REFERENCE INSTRUCTIONS, 
ou seja, instruções do tipo — referenciada como memória. 


Este método denomina-se MEMORY-MAPPED 1/0 porque 
designa os periféricos como uma parte da memória do Pro- 
cessador. Por exemplo os processadores 6800 e 68 000 da 
Motorola funcionam dessa forma. 


VANTAGENS: Existem instruções do processador que tub 
cionam simultaneamente para os periféricos e para a 
memória. 


DESVANTAGENS: Não existe disponibilidade para usar a to- 
talidade da memória endereçável pelo processador, quer 
para programa, quer para dados ........ por outras palavras: 
O método de Memory-Mapped 1/0 reduz a dimensão máxima 
de memória disponível ...... um processador de 8 bits, como 
os que estamos habituados a usar e que pode endereçar 
64 000 possíveis posições de memória, possui uma perda de 
memória disponível, que não é de desprezar. 


O processador INTEL 8080 e o ZILOG Z 80 usam um dife- 
rente esquema de trabalho: 


Os dispositivos 1/0 estão igualmente ligados ao processador 
através do MEMORY BUS, mas ..... existe uma instrução es- 
pecial e um sinal no CONTROL BUS para tornar diferente o 
processo de entrada/saída. 


O endereço de um dispositivo externo é diferente do endere- 
ço da memória, e assim torna disponível a totalidade da me- 
mória endereçável pelo processador. 
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ADRESS BUS 
— Enem + ão 


DATA BUS 
» 


> 


Um processador standard possui 
PROCESSADOR 8 linhes de dedos. | 6 linhas de 
endereços e 8 linhas de controlo 


CONTROL BUS 


FIGURA 2 


MIRROR 


CONVERSOR ZX81 — SPECTRUM 


O programa CONVERSOR DE PROGRAMAS ZX81 
—> SPECTRUM, de Fernando d'Almeida Preces, 
encontra-se à disposição daqueles que o pretende- 


rem adquirir, gravado em cassete. 


NOTA: Esse programa saiu listado nos n.ºs 20, 21, 22 
e 23-do CLUBE Z80. 


Preço: 500$00 


Adapt.: JORGE AGUIAR 
PORTO 


Este programa, muito útil para duplicar os ficheiros guarda- 
dos em microcassette, possui 3 partes: 


4) Programa em BASIC que deve ser gravado tal como está 
na listagem publicada. A sua execução é iniciada 
automaticamente. 

b) Screeng& — Trata-se de um écran (figura) que vai ser 
guardado na zona de memória conhecida como «Buffer 
da Printer». 

c) CAT — Um bloco de código máquina que faz o catálogo 
dos programas invisíveis — os que são gravados com 
um nome que começa com o Chr$ O. 


Para O gravar não se esqueça de fazer o CLEAR 64 854. 
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mento,Por Favor. URE 23755,12 nt 150) 1 PÉ PER 
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saia FOR n=zi TD ia Fl li Ui me 
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: RETURN 5 E 
9244 INPUT íº“: FRINT AT la, Q o tas a 4 11 

31; “;AT 20,0;TAB 31; “SAT 21 ) | az 

JB: TARE 31; “: RETURN uia a - ; 
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ma GRAF-3D, editado na revista n.º 24?» 


Mário Sancho/Porto 


— Basta escrever 1 REM e três linhas de pontos, o 
que significa apenas uma reserva de espaço para 
o código máquina que está na linha 130. Quando 
fizer RUN, observará que a primeira linha fica 
com os caracteres correspondentes aos que 
observou na listagem. 


António Pereira/Sever do Vouga 
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GO SUB e 

SO TO 3360 

LET X=X+3: 00 SUB b:= &D JO 


IF IN 2<:239 THEN GO TO 690 


PRINT INK 5:: LET w=z0: POKE 
JOS , 15: RANDOMIZE USR Gagll: 
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ORE BOlgua,x: RANDOMIZE USR 6 
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IF (u=y OR w=4) THEN GO TO 


IF IN 2=247 THEN LET U=9+8: 
“=x+5: POKE 50005,15: RÂNDO 
Z: BdóVAS,5: PO 

V900,x: POKE GUOBDIL,U: LET uz 


“MAG 


À S8:: POKE 60005,15 
" RANDOMIZE USR 60011: LET w=y: 
PURE 60005,9: LET x=INT ix/8) *8+ 


POKE 50001,4: RA 
THEN GO TO 1500 
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15.530) =8: GÓ SUB 5080 


S, 15: RANDOMIZE USR 50011: POKE 38: PORE 519013,23: FPOKE 610i4d,2s 
59005,9: POKE 60001,i: RANDOMIZ = Sae 
E USR 699011: GD 5UB e: NEXT É 7554 POKE 61205,25: PUKE 61205,2 
SBbO IF ABES tk-x) <lD THEN SEI a= 39: POKE 6l2as al: PORE 61224,25 
E. LET ez420: LET b=420: Su s. a E 
350 “bBDO RESTORE 7605 FOR F=50800 T 
S665 IF ail5,30) =5000 THEN LET à D Eo9l: 
| r 
s67) RESTURE ad12 FOR f=1 TOS: :'602 DATA &,15 | 24,143, 120, 147,8 
PRINT INK s;: READ i: POKE 6000 16,143,232,151 Á 
Li: RANDOMIZE USR 60911: GO SUB 7604 DATA 125,175.112,175,104,16 
NE X 7, lie, 159,125,159,136,151. 125,14 
5580 SRINT INK 5;: LET x=x-5: PO 3,112, 143 
RE 50005,15: RANDOMIZE USR 59011 7505 DATA 13,11,13,9,4,9,1,1,13, 
-“POKE 50005,1: POKE 60000,x: RA 11,13,9,4,9.1,1,13,15,16,15,16,1 
NDOMIZE USR 609011: GO TO BAD 3,15,13,15,11,15,11,13,15,16,15 
200 LET x=8+INT (x/8)+1: PDKE 6 7510 DATA 62,04,1,0,0,95, 125,50, 
Dos, 15: RANDOMIZE USR 50011: PO 123,89,4,203,85,40,10,111,121,14 
KE Sô 3,32,79,125,32,2.198,5,203.152,1 
=7sa RESTORE 99020: FOR f=1 TO lã 11,128,1053,125,105.197,1,52.0 ES 
- PRINT INK s;: READ i: POKE 600 7, 176,193.254,55,32,215 
05,15: RANDOMIZE USR 69011: POKE 2511 DATA 201,5,85.197,205 185,2 
B0DOS,9: POKE BOdDL,4-i: RANDOM 37,1953,16,249,201 Ê 
IZE USR 60011: 50 e: NEXT 7590 RESTURE 7695: FOR f=50210 T 
s7pa RESTORE adDil: FOR F=1 TO 17 O Bod64 STEP 2: READ U,v: POKE f 
- PRINT INK 5;: READ i: POKE 600 «cu: POKE F+l,v: NEXT E 
os, 15: RANDOMIZE USR 6209011: POKE :5as DATA 390,0,530,0,55,0,30,0,62 
50005 ,9: POKE 60001,i: RANDOMIZ .0,50,0,12,0,21,0,42,125,85,64,1 
E USR 509011: GO SUB e: NEXT F 70,192,222,0,62,0,185,0,7225 128, 
S770 PRINT INK si: LET x=x-5: PO 99, 128 x E o 
KE E6pDos, is: RANDCOMIZE USR 60011 “700 DATA 3,192,3,192,7,96,53,192 
POKEÉ BODOS, 1: POKE 600DA,x: RA .3,224,3,192,1,1268,5,564,10, 160,0 
NDUMIZE U&R 50011 1,80,25,168,3,516,3,52d4,7 loud ,l 
s780 LET y=119: GO TÚ GADO 56, 14,48 » 1 
Es0a LET Xx=B+INT 1x78)+1: PORE 6 7705 DATA 0.2,9,0,15,125,15.125. 
9905, 15: RANDOM IZE USR Boell: PQ 53,024, 10,125,15,125,13,125.15.1 
KE BOGDO, 28,7,9,21,64,106,176,215,45,531,1 
S3859 RESTORE a210: FOR f=zi TO 19 28,57,192,45,192,255,2458, 170, 105 
“ PRINT INK s;: READ i: POKE 500 /85,89,42,160,21,54,19,1258,0,0,0 
às,15: RANDOMIZE USR 590011: PORE 8 1 
50005,9: POKE 60001,i: RANDOMIZ “718 DATA 2,0,2,9,0,0,0,0,0.0.0 
E USR 690011: GO 5UB e: NEXT 1,0,0,0,90.0,9,0,9,0,0,0,0,0,0,.0 
s890 LET quzi: POKE 600D1,4: GU T 3,2,0,0,0 
à BADU “7 ls DATA 30,0,255.0,47. 155 Las. 
codo BEEP . UBS, 10+COS x 128,127,128.63,0,30,0,15,0 13,12 
SosS IF IN 2:>25d4 THEN, GO TO 600 5,50,192,55,192,239,192,225, 192, 
Sosa FOR f=l TO 5 EP BL, Ff: G “728 DATA 3,199,7,248,15,160,14., 
DO SUB e: NEXT f: FOR f=5 TO 157 =40,15,240,7,224,5., 192,7, 185 15, 
Ep -1: BEEP .0L,f: GO SUB e: NEX 128,27,192,51,96,531,154,31.215,= 
Ff o 4 de da 4 12 4 3h. ld 4 112 
5935 POKE 293675,58d4: POKE 256765,2 722 DATA 62,252.56,60,54, ldd 45 
36: PRINT AT L9LINT (4/8), INT (x 28,62,195,45,12,62,124,0.U 
Abs “AT 23-INT 1028), INT ix> 724 DATA 0,9,15,125,15,125,55,& 
Ss). "HI": PORE 23575,50: POKE 236 24, 10,128,15,128,153,128,15, 1206, é 
76,235 EG adro re 
- c +24 N G0 TO 500 2750 RESTORE 7732: FOR f=b0S0L 
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ass PRINT INK s:: Er w=4u: PODRE A | E mem Ea sd 
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POKE 5ÕÓDOS,9: POKE 60003,24: LET É .l É E 
x=INT ix/51+8+1: PORE BHDBO, wo "234 DATA 8,12,254,255,254, 1E,0 
RANDOMIZE USR 59211 le. E = 
sa6o PRINT INK-S;: IF IN S=247 T 755 paATA 2ES,2ia., 471,25. l71,25 
HEN LET u=u+2: POKE 60001,4: RAN SO, Ê nfs a 
DOMIZE USR G00ll Rg = DATA 3,14,55,95,79 218, 146, 
5965 IF iyu-y=0 OR =32) THEN B 15d ,192,112.92,70,242,57,6G.cd1, 
EEP .005,5: POKE ERER 16: GO TD 143,130,194,79,95,58,14,53.55,%8, 
SD 31,242,70,92,112,19z 
sa970 IF IN 2= aso THEN LET gz=u-ê: cção DATA 127,85,42.21,10.5.0.4 
POKE BDODL, RANDOMIZE USR 600 252,84,166,60,160,64,0.0 o. 
Ee À vã? DATA 62,55,54,.45,62,48,62,0 
S97S GO SUB & .252,50,124,25, 195.152, 124.8 
cães) GO TO 5960 "7ãáa DATA 63,0,1,63,95,255,0,0,c 
EBDA GO SUB b S2,8,248,0,0,255.,.0,0 
Bala GO SUB 10+IN 2 7750 SAVE “pt butes“CODE 5D0D0,1 
8920 LET z=a (INT (4/8), 1+INT (x7 415 
31) fd REM a. caia: == 
6930 IF z>0 THEN GO TO z+520+POIN ==>==== Inicio do Bl” quadro == 
T ix+d4,4-16) ed tags ud Em Srt 
Boda o GÔ TO ERVB densas Uariaveis e gfatismho == 
"SA REM ES EIIIIsISIcIIccsIsIcaa=a==== 
==2ncEsssas CODE guzzzasass E Ee e 
FllSlC Linhas 7540 TO 7750 ==== 7754 LET p=: LET c=206: LET 4=08 
c==== devem ser apagadas  ==== s s 4 
===== depois de qravadas === = PS EN Eapia A LET s=s=2: PAPER 6 
=2SzEZZSAaAS CEDRcIZSFZZSIsHEIZZADSSSS ; BORDER CLS o BEEP «001,50: 
7550 POKE 61207,71: POKE 61208,2 LET h=2: DIM à (22,32): RESTÓRE 7 


CLUBE Zgso 


"SE: FOR x=1 TO 23: READ U,v,E: "797 DATA 2,8,4100,10,25,510D,65, 
LET alu,vl=z: NEXT x 21,5109,5,29,52900,2,25,5200,2,7, 
“755 DATA 10,1,4200,14,1,4200, 14 S390,6,11,5400,14,5,5500,5,31,46 
31,45920,2,1,40909,5,1, isdo” 19, 31 00.19,1,4000,5,1,49000,2,1,40900,2 
4100,6,51 4i00,5,51, 4690,19,2, 31,4 190 
s00,6,2 , 4500,6,16,4500,10,30, so 7799 DATA 2,24,4200,5,25,4000,2, 
à,5,390,4500 12,4099,2.19,419090,5,30,4400,6,16 
"75? DATA 14,9,47 4590, 19, 15,4500, 14,17,47090,2,16 
4,21,44920,2,2,599 .5990,2,30,4300,14,16,4400,id4,18 
Q,4300,14,2,4d00,: 4490,19,5,44090,5,5,4400 | 
B,4400,14,30,4400 vB1la INK 3: POKÉ 23675,84: PDKE 
"760 POKE 23575,3 =23676,.236: PRINT AT 5,0; "CCCCCCC 
36: RESTORE 7750: COCOCOCC CCOCCECCCCEECEC RT 9, 
READ uu: PRINT INK O; FELCO CCECCOCCC AT 13,0: "CCÊ 
mao INK FZ;AT dou; Cs ECC COU- CB Ceor 
ul dra sc AT 7813 PRINT AT 17,0;"CCCC C 
TR: “: PRINT Er Fico cêc CHAT as, BT 
dc usa Cel +GCeECUcÊel CCUCÊTUeScCEl .. E” 
q 0,13,25 , ?814 PRINT AT 14,24;"CC";:AT 45,2 
762 INK 1: PRINTAT 5,0; CCCCCCC 4 “ECO”: AT 18,24; "OCCC"; AT 17,25 
COCCCCOCCECECOCCCCCERCCErre EE o SR a AO, IA; LL EC”: 
Bi ADDED ECCRCE AT 139;,9;"CoÊl CCC";AT 20,5 
VS mé | “EOCO CUCE' 
"264 PRINT AF 13,0;ºC CCOCCÊCEE ?*816 PRINT INK 4;AT 12,1; JK“;AT 
Ci - a Gene cEce “os ar-ZRas CT LE LOTA SO; L2J JK; INK É; 
DRT Cod «PEECOLCCECCE tr AT S,iS; "UK" 
Ar atom "Cc TrCreCCCECC OE CReEEL 7818 INK 5: PRINT AT 2L,4:"“LM";A 
COGEREC «E TF 15AS:BMICUATr LPS: UNICO; 
765 PRINT INK 2:;AT 6,8;"JKC;AT NK S;TOB 15;“HI" 
Se ta a 7819 PRINT INK Z;AT 14,31;"B” 
“766 PRINT INK 3:AT E,BLCAVLAT OS 7820 RESTORE 7820: FOR F=i TOS: 
Bi BRL da, 0; "NS AT IB Ga Êr QEAD uu: PRINT INK Z:AT. 0,0; "dio 
"763 PRINT INK 2:AT 9,1;"HI“;AT em. INK G:;aT Lou; J |: AT 2 
TS, ASP RICAS 12, 29; RO RE ul AT Sus" at d 
2: TAB L:cHICo rg! E: PRINT INK FZ;AT L,u+ 
irem PRINT INK 2:: POKE 235675,50 2: "DECSAT 2,U+2; "FG": NEXT Ff: DA 
- POKE 23676,2935: KRESTORE 7770: TA B,13,96 
POKE G90D9Z,13: POKE 699093,15: PO 7824 LET aazD: LET q=400: LET r= 
FE Bpagi,175: FOR f=1 TO c:xl6-10 BOBS: LET 9=800: LET e=800: LET 
- RERO u,v: POKE 6O00D,U: POKE 6 k=5: LET 1=127: LET b=800: LET 
2085 ,4: RANDOMIZE USK 6Ogil: NEX 3=B0799: LET m=D: LET x=l4d: LET 
T Ff: DATA LhbD,5,1726,9,192,1 4u=87: LET w=0 
FRA LET aa=z0: LET r=590825. LET 7825 INK 5: POKE 253675,50: POK 
e=L10: LET b=d0D: LET a=60799: L 236 75,235: RESTORE 782 POKE BW 
ET n=0: LET »=4S8: LET q=119: LET SB2,13: POKE 699903, 16: POKE 6000 
1=209:. LET v=87. LET w=Q L,;27?5: FOR Ff=) TO t/16-10: READ 
772 PRINT INK s:: POKE 60095,1: U,v: POKE 6020908,U0: POKE GBODOS,V 
POKE GBUgdo,x:. PÓKE Godal,u: RAN RANDOMIZE USR GOBgil: NEXT 
DOMNIZE USE 6909011 à TA 169,5,175,93,192,1 
“es PORE S19902,153: PODRE bBl19DOS,1 “8265 PUOKE Gl2lB,k: POKE Bl2iL,L.: 
5: POKE GBlQDA,U: POKE GBloal,v: E POKE 61212,16: POKE 51213,7: PQ 
DRE Elgas, 193: RANDOMIZE USFR 6191 FE 51215,27: RANCOMIZE USR 61221 
1 "525 POKE 600905,1: PDKE 6O0900D,x: 
FTr4 LET d=700: LET k=8: LET L=2 POKE EBOBOL,U: RANDOMIZE USR boa 
3: POKE 61219,k: PFOKE 6Gi2lil,l: P qa 
DRE 61212,15: POKE 61213,7: POKE “850 INK 7: PRINT BAT 3,19; “0DUADR 
51215,27: RANDOMIZE USR 61221 . DAT. 4.720: ES“: AT- 4, 49+4h; FLAS 
"776 PRINT INK B;AT 3,19; “QUADRO H l:h: PRINT FLASH q 
:AT 4,20;123";AT 4,19+h; FLASH 7832 PRINT AT 3,7; "“BONUS";AT 4,7 
“A;h: PRINT FLASH q “QAT D,7; “SCORE";AT 1,7;"000'"';A 
2725 PRINT AT. Bo 7: "SCORES AT 2,7 TE Lg 
:"QOD";AT 3,7;"BONUS";AT 4,7;q)A 7839 PDOKE 23574,0: POKE 23673,0: 
Me POKE 23572,0 
“vera POKE 236574,0: POKE 23673,0 7848 RETURN 
POKE 23672,0 7845 REM == 
“TE RE Lu sezs==s Início do 8E' quadro == 
“ras ER == ==22225 == 
=5EZDas ínicio do BS quadro = ===2=2Es dariaveis e qraFfismo == 
======= Uariaveis e grafismo == 
=IzScosaszscsasassnsasanzzsnnasases “Dé LET a9s500: KET pasb: LET 
“765 LET Pp=Q. LET c=205 7BES LET s=1l: PAPER 7: BORDER ?: 
“vd LET s=5. BORDER O: PAPER dB: CLS : BEER «991.50: LET h=3: DI 
SL5 oi: BEEP ,.9001,50: DIM a(t22,32 M a (22,32) 
E MET h=e 7850 RESTURE 7861: FOR x=1 TO Sd 
“7a4 RESTORE 7795: FOR x=1 TO S2 - READ U,v,Z: LET alu,v)=z: NEXT 
:-- REBD- UM ,Z4.. LET atd,v) st MEXT w 
E. ii “861 DATA 18,29,5000,19,16,5900, 
“vas DATA 14,4,4800, 19,4 ,4502D,2, 18,1,4200,14,5,4000,2,8,4000,6,1 
1/4500, 10,15/4880,6. 15/4600, 14,6 5,4000,2,4,4190,5,11,4100,5,23,4 
:4900,10,5,4900,2,5,4900,18,17,4 190, 12, 18,4100,19,1,4200,2,1,420 
500,6,17,4900,10,2,5000,5.3,5000 »,14,16,4400,18,26,4400,6,19,d40 
«2, 18,5900 à, l0,29,4600,190,31,4600,2,31,450 
“7968 DATA 120,8,4800,190,9,4809,10 a 
.15,4599,19,19,4500,10 1ê,4900,1 “862 DATA 14,29,59000, 14, 15,5500, 
q,13,4900,10,22,4900, 10,23 + 4900, 18,31 ,4690, 14 3Q,58099, 15,27,4700 
id, 19,5500, 10,11,5500,10,20,5500 19,11,5500,19,8,5000,10,10,5000 
.19,21,5500 ,19,28,5000,2,13,5008,2,15,5000, 


HI 
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RINT INK D:AT 2,0;0Aº 
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7880: FOR F=l 
RINT INK 3; PAP 
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LET u=0: LET 119: 


“PORE 23575,50: 
235: RESTORE 7522: 
POKE 69293,16: POKRE BODO 
FOR f=1i TO c/z16-19: READ 
ei B0DDO,k: POKE BODAS, L: 
e. USR bogli: NEXT F: DA 


,9,192,1 

( 1;: POKE 50005,1: 
50000,x: POKE Go0dol,u: POR 
,13: POKE 60003, 15: RANDO 


V11 
PRINT AT 3,19, CVUADR 
"123": AT à, iS+h; FLAS 
FLASH QB 
Aq Er, ea AT od, 
CORE” 1,7; "BUD; A 


POKE 23673,08: 


POKE 
POKE 50 


do PTE TIUUZ OT 
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à BORDER 4: PAPER qd: 


t INK d: C 
à FOR f=23252 TO 23295. POKE 
,Br4 +94: NEXT Ff 
6390 FOR f=B TO lg: PRINT AT F,3 
INK PAPER = 

NEXT f 
a5b59 PRINT AT, dl, Cas 
UCDOES- “es PAT 


CLUBE Zso 


RA DE LEVAR" P+ A SUA CAIXA 

EQREE TODAS AS NOTAS CO qu 

fo DEVERA” ENTREGA" -LAS 

XxO DA NOTA VERMELHA 
ODE APANHAR UMA o 

A VEZ FICARA 

E QUANDO O FIZER 


DEVE EVITAR O METRAL 
ME a o. E OS PRECIPICIOS. 


R F=1? a: Sl: FOR G=3 TO 
NT MI FP; “MEX mo NE 


0 

1 

D SUB 9800 

ANDOMIZE USR 609092 

RINT ATO ll, O JOGO CONS 

Ss. á a AO COMPLETAR 

DRO no ANTERIOR FASSA 

a IMEDIATO RD SEGU 

“FOR F=15 TO 18; FOR B=3 TO 

PRINT AT F.6;" “. NEXT GE: NE 
p 
D 


uz PR UCA ED A 4 ls lego jm fr ls 
LOCA JOZM HDD A-IDM 


RINT AT 19,3; JUANTO MAIS 
IDO TERMINAR UM ui 
DO, MALOR" SERA" QU BUÚNUS. 
3 GO SUB 39500 
5 RANDOMIZE USR 60a0S 
O PRINT AT 121,3; SE DEIARR O 
N 


E. 


US CHEGARVCT A ddoa, MORRE 


E O BONUS DI 
“ à e FASSAGEMN DO 
E QUADRO. 


à Pest ty To FOR Cas 70 
PRINT RLF,6-= ":. MEXT d3> NE 


PRINT AT 20,3: CADA DUACRO 
Ria BONUS CO DIFERENTE. 


GO SUB 9500 

RANDOMIZE USR 60902 . 
FOR F=11 TO 21: FOR 6=53 
PRINT AT F,6;" “: NEXT G: NE 
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T 20,3, RAL cus 


93 GO SUB 950 
e RANDOMIZE 


Ronco qi 


“Ai 


COMECAR. “:AT 18, 


11 BEEP .21,104+RND À 
12 IF INKEY$="" THEN GO TO 971 
q 
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2 FOR F=11 TO 14: FOR G= 
PRINT OT ge. 


[nel 
1 PRINT AT 15.3." ESCOLHA OU U 
R ONDE DESEJA JOGAR 
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CLUBE Zso 13 


e o OC ELE RE E em 


— Pt Programa — Linhas 1 a 9999 — Devido à sua ex- 
tensão, o melhor será introduzi-las por partes. Depois 
reúna-as com MERGES. 


a730 RETURN o número das linhas; caso contrário o programa poderá não 
3500 FOR F=:10 TO GO: BEEP .DD1,F funcionar. 
NEXT F 
e re E ME TO STEP =—T: BEE a 
COML: x NSTRUÇÃO DO PROGRAMA 
3520 ia cmo 
2995 STO ; 7 e 
tus E era - SAQUE “pt progran” L «PATINHAS», no final, será constituído por 4 partes: 
4 

5400 REM EA — 1.º parte — pt entrada 
sasansssses SCREENS. Sesaszcaas — 2. parte — pt screeng 
3560 PAPER O: BORDER O: FLASH O: — 3.º parte — pt bytes 
GUER A o aee AS = 25 qu té Eos — 4.2 parte — pt program 
o + PRINT SME AH DB: e e E À 
EDP." a má ua Grave-as por esta ordem! Os processos de gravação estão 
5565 INK S&S: FOR f=0 TO 3: PLOT 1 sis é O 
"osyr. DRAU O,-1i-B*t,PI: DRAU sempre na última linha da parte em causa. 

41,8: DRAU G,11+2+H,PI: DRAW IN 
KR dp =-& Ed NEXT 
=210 EE ANA PAPER 5, INK 2 S,8 ENTER. 
o GASTUS 
9515 FOR t=) TO 3: e aaa — Pt Entrada — Linhas 1 e 2 — Basta fazer RUN2 
Fr. 2Raú 0,-1l1l-2+t.PI: DRAW à LE = an ser 
41,0: DRGU O, ll+24t,PI:. DRAW -d Pt Screen$ — Linhas 9400 a 9590 — RUN 9500 
1,0: NEXT Ff: PLOT INK 53;245.98 — Pt Bytes — Linhas 10, 20 e de 7540 até 7750 
5524 PRINT INK O: PAPER 2,A17 20, à , a 
3 ESPERE INK DE PRPER SU. e 1.º passo: Consulte o n.º 19, págs. 11 a 15 
=0.21, CRUGRI gi dr q a PE | na deste jornal e introduza os bytes «animate». 
EN : E St e E Grave os bytes. Experimente RANDOMIZE 
dE É. ren USR 65 171. OK? 
55: TO Ss. E IRCLE 128, e 2.º passo: Entre as linhas indicadas no início. 
Sa. Ei o dc aii. dE SE e 3.º passo: Faça GOTO 10. Como poderá ver 
sa. FON f=li E 8. TiRO R a 
LE CIRCLE Jd2 dá, Ff: NE esta linha pede-lhe 3 cópias dos bytes do 
AT mi Rega id | 1.º passo. Ande com a fita para onde os gra- 
E ça Aê: PREMIERE d, vou e coloque o gravador na posição de ler. 
55: TO 56: PLOT 120,F: Repita isto 3 vezes. Deixe o programa correr. 

u EM 1 cai A linha 7750 gravará estes bytes. Pode agora 
=5 11,15; CM AT IS 

, ake destruir as linhas 10,20 e de 7540 a 7750. 
E E Does a pa Eis am É, no entanto, aconselhável gravá-las em 
EX qui ud BASIC para melhor detecção de eventuais 
no KdiH erros. 


m =: Antes de experimentar qualquer parte deste programa, será 


TO dé STEP É PCOT O ft: DR melhor gravá-la primeiro. 
| 73+b.7B-a: PLOT 255,t: DRAU - Lembre-se que um RANDOMIZE USR errado pode levar à 
E TO a Ea ad aa a-ate.ro, be! DSDpt destruição do programa. 
SAUE “pISCREENS SCREEN GOTO 9999 grava «pt program». 
NOTAS SOBRE O PROGRAMA «PATINHAS» DIVIRTA-SE! 
O «coração do programa encontra-se nas linhas 6000 até 


6040: NOTA: O programa foi várias vezes experimentado e tudo correu 
bem. No entanto, se tiver problemas ou quiser esclarecer 


— 6000 — Dá-nos a possibilidade de variar os possíveis alguma dúvida, encontro-me à disposição dos sócios. 
movimentos de outras figuras no écran, além 
do Patinhas. Para isso basta alterar o valor 
da variável «b» consoantte convier. 


— 6010 — Faz a leitura do teclado. SCROLL NO SPECTRUM 


— 6020 e 6030 — Vão usar o dimensionamento do 


écran para que se faça o movimen- «Na revista de Setembro pág. 5, Carlos Moreno 
to do Patinhas nos termos aí esta- apresenta uma subrotina para efectuar SCROLL no 
belecidos previamente. Spectrum. 
— 6040 — Retoma o ciclo. Acrescento que o Spectrum já possui SCROLL na 
Consulte nas listagens as Linhas REM que o elucidarão um ROM: RAND USR 3582>. 
pouco mais. Hugo Assumpção 


IMPORTANTE! Quase todas as linhas do programa estão Lisboa 
numeradas umas em função de outras. Por isso nunca altere 
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CLUBE Zso 


ESTE É O MAIS CURTO E RÁPIDO JOGO DA VIDA, QUE 
JÁ VIMOS. 


As suas regras são muito simples: 


1) Uma célula nasce, se um espaço vazio tem exactamente 
três células «vizinhas». 

2) Uma célula morre, se possui mais do que três ou menos 
do que dois «vizinhos». 


Um écran aleatório é gerado de modo a apresentar uma 
colónia de células, e sucessivamente, vai apresentando ou- 
tras colónias. 

Eventualmente uma colónia morre, tornando-se estável e es- 
tática ou estável e dinâmica. 

Pode premir uma tecla qualquer para regressar ao BASIC. 
Para recomeçar o programa, substitua as linhas 10 e 20 por 


10ORANDOMIZE USR 32768 
20 GOTO 10 


RUN 


O PROGRAMA PRODUZ CERCA DE 9 GERAÇÕES POR 
SEGUNDO. 


O CÓDIGO — cerca de 159 bytes — é Simples de «desas- 
semblar> e modificar. 
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KEN WILLIAMS pergunta: 
USA EFECTIVAMENTE O SEU MICRO??? 


Algum tempo atrás, um amigo ofereceu-me uma caixa com 
algumas dezenas de Cristais, e eu pensava que poderia 
aproveitar um ou outro para os «dois metros». 

Liguei o meu microcomputador, liguei o TV, coloquei uma 
cassette no gravador, e eis-me atirado ao trabalho, usando 
efectivamente o microcomputador. 

10 REM programa para verificar a frequência de um cristal. 
Aqui está o início de um programa, assinalando a finalidade 
do programa; agora vamos ao cálculo: 


primeiro a frequência do cristal: 


20 PRINT «seleccionar a freg. do cristal» 
30 INPUT f 


Agora para dois metros, podemos usar X3, X8, X9, X12, X18, 
X24, de modo que teremos de escrever algumas linhas mais. 


40 PRINT "3F = ":3+3F 
50 PRINT "8F=":8+ 
60 PRINT “9F =”. 9+F 


ETC. Estas linhas estão relacionadas com as frequências de 
transmissão, todavia vamos supor que o CRISTAL se destina 
a um RECEPTOR? 

Felizmente o meu equipamento usa uma IF de 10.7 Mhz, 
portanto o programa deve ser lido como: 


100 PRINT “3F + 10.7 =”: (3+F) + 10.7 
etc. 


tendo o devido cuidado com as regras da matemática, deixe- 


mos sempre ao computador o efectivar dos cálculos, de 
modo a calcular de seguida as possibilidades do próximo 
cristal, e isso requere: 


160 PRINT «próxima frequência do cristal?» 
170 GOTO 30 


e voltamos atrás para o início do programa. 

É evidente que pude verificar a utilidade de um programa 
deste tipo, e em 5 minutos tive uma lista das possibilidades 
de cada cristal, existente na minha caixa. 

Com algumas substituições e modificações, eu consegui pro- 
duzir um programa mais útil, dado que nem todos os recepto- 
res usam um cristal de 10.7 Mhz. 

O nosso programa vai portanto perguntar a frequência inter- 
média do receptor (IF). 

Inicialmente podemos indicar qual o número de cristais re- 
queridos para as frequências dadas e seleccionamos 1 ou 2. 
Temos sempre a possibilidade de regressar ao MENU após 
casa cálculo efectuado ou continuamos a entrar com fre- 
quências, etc. 


Exemplo Freq. do Cristal 


19. 


no 


Prox Freq. E CP SAC Li ú 


nm . 


| OS 10 MAIS VENDIDOS | 


q M INGLATERRA NO CLUBE Z80 


1. Combat Lynx * Pole Position 

2. Pyjamarama * Decathlon 

3. Decathlon * Chuckie Egg 

4. Sherlock Holmes Sabre Wulf 

5. Avalon Full Throttle 

6. Beach-Head * Match Point 

7. Kentilla Pyjamarama 

8. Dark Star Code Name Mat 
9. Delta Wing Psitron 

10. Full Throttle * Hulk 


* Programas disponíveis no Clube Z80. 


Já se encontra à venda no CLUBE Z80 
o programa de cópia LERM TAPE COPIER 5 
(2 programas): 

— Cópia normal em gravador 

— Cópia para microdrive 


Preço: 800$00 


CLUBE Zso 
3 E = 2á 320 PRINT C“SF+IF = ",8xf+if 
58 F = 64 339 PRINT “9E+IF = ";9%F+if 
9 F e 7 340 PRINT “12E+IF= “; lasf+if 
12 F = 95 350 PRINT “ASF+IF= ";18+%F+iF 
18 PP = idá 360 PRINT "“2dF+IF= ";244%F+i F 
24 F = 192 370 PRINT "36F+IF= ";36+%F+irf 
35 F = 288 490 PRINT AT 20,0; “seleccionar 
3F+IF = 34.7 diMenv) ou 2 iconte.)” 
SE+IF = 74,7 419 PAUSE B: LET ng=INKEYS 
SE STE = BD,Z 420 IF ngc<c'o” OR ng>"1" THEN GO 
12F+IF= 106.7 TO 4ly 
18F+IF= 154.7 430 IF ng="2" THEN GO TO 20 
D4F+IF= 202.7 440 CLS 
36F + IF= 298.7 450 PRINT “selec. proxima freq. 
CRISTAL" 
478 GO TO 210 
toe. dr | SW) CLS 
seleccionar BiMenv) ou 1 tconta) Sia INPUT “qual a freq. interm. 
do receptor'";a 
seo PRINT 
19 BORDER B&B: PAPER BD: INK 7 550 dao À "Frequencia requerida 
20 CLS A 
39 PRINT “Programa de calculo 2590 PRINT 
-FREQUENCIAS di iSPONivEis para de 560 PRINT Cristal de transmiss 
PO e no o eettre “S20 PRINT “X3 ="; f/8 
: = 22, y; "SelLlecrrionar : "q 
Ss PAUSE dB: LET ng=INKEY& = A a f/ 
> EO IF ng<Clº OR ng>"2" THEN G0 50) PRINT (X9 o = 1/9 
E as - das BRRNT UAIS DU ii 
7a IF ngz='1º THEN GO TO 180 5 AB =, É/ 
Bo IF ng="2" THEN GO TO 500 ee ent ne ERA. 
170 REL ABA dE: reg. E - Ee 
io REM verificar a freq.do cri 550 PRINT “Cristal do receptor" 
io E ESB BRENT MS Ee (icaitE 
LE 7 | reg. i Ma - AE Ed jo. Md 
do rECaptorESÃ O! Mo id 580 PRINT XS =“ tf-alz8 
300 CLS 592 PRINT "“xX9 ="; (Ff-a) 749 
HE 78 BRENT UXÍB EU (ira) 718 
220 PUT “Frequencia do CRISTA E E Ed tis Ed 
ds Pai es aid 720 PRINT “Xad ="; (f-a) 24 
asà PRINT “3 FF = ";34%f 750 PRINT “X36 =", (F-a) 736 
2650 PRINT “8 EF = ";8s%f tã40 PRINT re 
278 PRINT “9 E == "2 GRE 75 PRINT AT 22,0. eLleccrcionar 
280 FOR iz? TO 6 y iMenu) OU 12 iconte.l” 
285 IF i=5 THEN GO TO 300 760 PAUSE QU: LET ng=INKEYS 
299 PRINT. 156,0 E = "sisdaf 778 IF ng<'d” OR nã>"1º THEN GO 
300 NEXT To “0 E. E 
310 PRINT “SF+IF = “;34F+if DR E a, MEM DO TO RO 
f a | 
SR INPUT “proxima Frequencia n 
ecessaria ? “sf 
810 GU TO 55 


COMPRO OU TROCO 


Por uma cassette que já possua (Compiler Il, As- 
sembler/Disassembler, Jogos) a CASSETTE BETA 


BASIC 1.0 para Spectrum 16/48 k. 


Contactar: 


RUI CARVALHO — R. Miguel Pais n.º 31-3.º D 
2830 BARREIRO 


THE QUILL 
QUEM RESPONDE? 


Como traduzir as mensagens «standard» do progra- 
ma THE QUILL para que, nos jogos, apareçam em 
português? 

Pedro Ferrão/Mirandela 
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1 TTEEZZEEETTUUTT[[D[7Z7ZD[D[00ODDD[[DD[D[0...Àe—.— — SAUBE Zs 


Autor: PAULO CASTELO 
PORTO 


Este programa é idêntico em objectivo ao programa apresentado no boletim n.º 22, de Julho, feito por Manuel Quinaz 
para o SPECTRUM. Este é diferente por trabalhar no NEWBRAIN e por as estruturas tridimensionais serem opacas. 

A função a desenhar é definida na linha 150 e os seus parâmetros na linha 160; é aconselhável que o número de 
intervalos para o eixo dos YY (NY) seja menor ou igual a metade do número de intervalos para o eixo dos XX (NX); o 
tempo que leva à desenhar uma função é proporcional ao número total de intervalos e (menos significativamente) à 
complexidade da função (FNN). 


Ee ad, a a ES . : s = = es ê === =: é =. ; á ist é am: imMij=ss 
554 == = pa = = ie: z is) ii= É im é s iii HRS” $ i e E DR 
zÍ 1 Ê = á : 4 E E: à : à iii der: & |: jim; dba à = 
as = =: : & === E = “as = é & 4 | 4 $ 44% E + ; E My tica = 
“= : a : = Ê ==as 5 ; = 
+: a 7 os z y' = a = = =. : = = ir é ;a= 51 = = 
:á - = = :á = “ê Rs == us a a do A i 5 
a: =: = : = :: : : hm RO a =; = o = hr á a E Rs = === 
= = e < = & a = = = = = : = == é 'z ts : == 
4 - = 
una ss im s s = = =, a =:. == 
elit mm = 4 = = = Er doa s. 
miti'a = e): 24 = 4 SóIidos 


.. uma Dae vhuas “ioar conns castr ques 


fome. 
a 
id, 


at Too 


It fi - red vie eta nda femea ani fonte vd cid asp ep 


e... qua cipa diogo meant voga 
..“ ago quam saga tRnMT DEces 0446 nous 


EIA: 
EIS: 


EH v3.1 


i - aspas Cost dao 000, ana 
+ 4 Í hi... (as tr — 


bo 4.47 
Fº a 


... uns cupom coast enens 


FHHO 


of gtags 


cel 
fue! 
de 
|O 
a” 
| th 
pes 
ti 
| do 
4 ti 
ii 
ft 
Bit 


cm “ o cena Cedo about una quant quis 
q ue graça quens qu vt. sta. tuas aocao qhust qáres quan 


(MA, Lola 


ri : 
- 4 ' us us uns Mia utuao aos entro Ruas e — us eus - ques que . 
pr ' ; creo coco atos e. usam acao Naus senai UENUS DUAL veria atua «teus aaa” ninas 

a Ge. 


EIA: 


j [E 


TF 
Bh, 


| 


a 
4 
RA 
ue 
kã 
E 


+ o 
“ CNO CUHOS UM asa CUGES <lpos nasT copos o. casa cassa quago a au comes mess vtags é CELIO vobçt CUPGO 04046 CUGOS TONGS JUEGO dutos cusut vtoos ogao 
f E sat cogu vaga” Aut eg AUAt cado AA chuçi visa sinos coesa sOças BAGS CEGOS GLASS viga? GUIAS sumos 4 up VORA «UPE Gino CMAGO VÃOS a00U vara “DOME voaas 
e 
se. uma ' 
El (4 I: . 
(0 | - "e P 


1 
i 
1 


So 
a) 


t" 
| 


; 

pars, 

- 

o abod 


Po — 
É du 

= - 
ta 

toa al 


REIS: 


REI: 
CLOSE RS 


o HEHERAI 


CLOZERI 1 


o 
tus t 
im 
pena 
Eae 
mm: 

E - R 
Hi 
no 
tt 

il E qt ti 
q 


Iniciar === 


ET 


Ltd 


eta tt 


sã 4.4 + 
E E. t. . va 


.. ] 4 


DPEHAO, d,"LiSI! 
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sa PRINT "INICIO" : OPENSiL,11,"219" = OFEHAS, 2, "2dBo” 
i4g REIMS: . 
it DEF ENH = CiI-COSCRÉPIO2 E CI-CORBCYAPIDo oc REM: demora 12.50 min. s 
jet LET xe A : IY= 0 : I2= 6  Skã= 4: rs 4: G2= 4: H4=654 : HrY=32 
(7a FEM: mis tmtte inferior we imte Superior “A NCervas 
jam FREIM: 
194  [=(SZ-IZ)K1.73 : FLOT RAHGE € CSM-IADES- E XEdI AD, T tezt-219 3 
ca REM: | 
210 Xy=cSM-INICSYF-ITOc BD o: EY=]05E-lZ2e Sr lro- 
228 D=SM-IX : T=T/7.7 - DIM SCNKES-22, ICNAES-L 
238 FOR M=A TO HKXS-2+.l 
248 cépmio=-1E394 0 IcMo=1E93 
esta HExST mM 
| 2céa FUT 31 


aaa REM: === Desenhar o grafico === 

180 REM: 

229 FOR Y=IY TD ST +.lkCSy-IvocHNY STEP cSrv-lr 
St Ce=cy-IvoERT-IS : Ce=tY-Irokir-IZ :- Ce=b 
fp4B FOR H=ã TO Há +.1 : 

JE teDENoNA+Ia o: Z=FHH+ACZ+ TEC Ha-tHo- Ha 
258 Cego I=H+cca+ria tHaoD 
rd IF Z:sc< 1) THEN C=1 0: SEI: 
Eres, IF Z<1I€<1> THEN C=1o. MI: 
398 Má=]0o0 0 C=Co AND CO :- Co=H 
48 PLOT COLOUR Co. MOVE É MAES, E7 
414 HEXT HH 
dd HEXT Y 

asa LINFUT C"QUER COFIAR CS>2 002 AS 

asa TE Ag="5" 0 Ag="s" GUSUÊE Sab 


pre TZ 
Pa e. 
pe 
PE 


458 END 


são REM: === Copiar O grafico === 


ig REM: 
soa REM: Trabalha com uma impressora SEJEDGHA GF-23BA 
Satã REM: a "2400" bauds atraves do interface 3 para 
Sam REI: evitar a formatação do interface & que por 
ssa REM: dem modificar oz arafiços copiados. 
St REI: co copia araficosz de Edgu2io: 
Sr REI: crodifique e aprenda, 
sem Pulido, 27,1º,o 
oa FOR [iza Toca 
EA PERES. 1O, gr, KT, BE 
| E 113 FOR H=PEHOPosrregaeis TO PEC O+HN STER-Sa 
DE C=PEEECHOO FITAS, Col 
ntã HEX H 
, ed HEXT EH 
65 PUTAS, lã, 27."L",.s 
pt RETIREI 


VENDO VENDO 


Timex Sinclair 1000 16 K com literatura e «CURRAH SPEACH» por 7000800 


programas. —————— PREÇO: 6000800 Contactar: 


VÍTOR CASTRO — Rua do Paraíso, 16 - R/C 
MARIO SANCHO — Telef. 496087/Porto | Telefone 316319 ——— 4000 PORTO 


Contactar: 


Adapt.: J. MAGALHÃES/Clube Z80 
Muitos de vocês, especialmente os que não possuem Micro- 


drive, se pretenderem gravar um programa, dados ou código 
máquina automaticamente (ou seja, saltando o «start tape 
then press any Key»), podem fazer: 


— POKE 23736,181 antes do comando SAVE — SEM 


Como forma de ultrapassar o problema de o Spectrum não 
dispor directamente de certas funções, temo-nos preocupado 
em publicar pequenas rotinas de grande utilização. 

Neste caso trata-se da função LISTO (BBC). 


Esta rotina que apresentamos torna possível, também no INTERFACE 1 
Spectrum, uma listagem de qualquer programa em BASIC — POKE 23744,181 antes do comando SAVE — COM 
com todos os ciclos FOR-NEXT destacados das outras li- INTERFACE 1 


nhas. Pode ser colocada em qualquer zona da RAM. Os es- 
paços que separam o número de linha e a linha do código 
podem ser alterados pelo comando POKE: 


QUEM RESPONDE? 


«(Gostava que me explicassem o motivo porque no meu 
computador, geralmente a partir destas posições de me- 
mória até ao fim, ou seja até 65 535, quando eu ligo o 
computador estão ocupadas com estes números e nestas s 


POKE 237282 — 2 espaços 
POKE 23728,32 — 1 linha 


Criar um programa que permita calcular a área de 


E CLEAR 31999 posições eu não posso alterar, porque o computador não 
& FOR 3=32008 TO 32075 aceita.» ; 
SO READ ad: POKE aàa,d ; Eduardo Pardinha — Leça da Palmeira 

EMT E TV eat E WÊ O - pata tes Ee. 

0 DATA 62.,2,205,1,22,42,83,92 FESer = 
,216,235,205,40,26,62,52,215,17, ESFBS 71 
176,92,26,254,0,40,8,245,582,32,E SESES e 
15,241,51,24,244,35,35,35,126,25 SEFgd Eis 
4,235,32,4,235,52,52,255, 126,254 ESI2E HE 
.243,92,4,255,53,53,235,205, 152, EEERE Evo 
Z4,205,55,25, 126,254,13,32,226,5 4 pda ida 
S,24,188,187 mos ad a 

Bo POKE 23728,2 EA cabo E 

“D RANDOMIZE USR 32000 A eng es 
HUGO ASSUMPÇÃO, DE LISBOA, propõe aos GSadio db 
sócios do CLUBE Z80 o seguinte «desafio»: SSSSR 255 
«Para criar no sócio um espírito de descoberta SERES =. e 
das suas potencialidades inventivas ao nível da SSdes =>. 
programação e levá-lo a usar mais a cabeça e o SS 4025 12. 
lápis do que os dedos e os reflexos, proponho EFE =is 
este desafio que, concerteza, todos vão conse- En == 
guir apesar da dificuldade. ESSES Ei 
Exemplo: - SE E ] E 


um paralelogramo rectângulo inscrito numa ESA És 

circunferência, dados unicamente o raio desta e ES 36 13 

um dos lados do paralelograma. aire EA o 

Os sócios mandariam as respostas (programas) e pdiiiacãs 

o CLUBE publicaria as duas melhores. Mas os ASad il 

sócios na resposta teriam que colocar outra Ea 

questão-desafio. QUE TAL ACHAM A IDEIA? ESada 

(Depois enviarei um programa suposto didáctico dE E 

sobre o problema que propus)». SSsd o se 
Hugo Assumpção soc ei 


CLUBE Zgso 
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— o compilador PASCAL H4T/Spectrum 


Apesar dos seus 16 kbytes de BASIC residentes na memória 
ROM, o Spectrum não é rígido e pode adaptar-se a uma ou 
mais linguagens novas: por exemplo o PASCAL standard. 
Se o meu amigo possui um Spectrum com 48 kbytes de me- 
mória central, então 800800 serão suficientes para aproveitar 
toda a potência do PASCAL. 
Efectivamente a versão de PASCAL da HighSoft — 4T — 
introduz no seu Spectrum a linguagem PASCAL. O compila- 
dor e os programas de execução ocupam cerca de 20 kbytes 
e os restantes 11 kbytes podem ser usados para compilar 
grandes programas. 
A cassette com o programa «Pascal — 47 —» comporta dois 
registos. O primeiro é um pequeno programa em BASIC que 
serve de interface entre o BASIC e o PASCAL. 
Msegundo, é um bloco de bytes correspondente ao código 
do compilador, do editor e dos programas de execução. 
A documentação de 62 páginas compreende as indicações 
sobre a colocação em funcionamento do PASCAL 4T: sobre 
a sintaxe, explicações sobre os procedimentos e funções pré- 
-definidas, diversas opções do compilador e do editor, bem 
como anexos, que incluem por exemplo pequenos progra- 
mas. 
Lamentamos que esta documentação seja escrita para adap- 
tação deste compilador a vários tipos de máquinas, o que 
dificulta um pouco o entendimento do utilizador Spectroviano. 
Neste caso teremos, as particularidades do Spectrum um 
pouco desviadas da «massa» de informação contida no 
manual. 
Após cerca de 2 minutos e 20 segundos de carregamento, 
podemos entrar directamente no Editor. 
É necessário além disso, o endereço que designa a zona de 
memória em que queremos instalar o PASCAL. Poderá 
assim, reservar lugar na zona mais alta da memória, para aí 
rever extensões pessoais aos programas de execução. 
| éita a inicialização, poderá começar a escrever programas 
nesta nova linguagem. 
O Editor é fácil de usar. Compreende os comandos de inser- 
cção de texto, listagem de programas fonte, destruição ou 
duplicação de linhas e renumeração das mesmas. 
A função FIND permite pesquisar uma string (cadeira de 
caracteres) no interior de um ficheiro fonte e de o substituir 
por outra string ou cadeia de caracteres por cada ocorrência 
da string original. 
Outros comandos (numerosos) de edição de linhas facilitam 
o trabalho do programador. 


APÓS A INICIALIZAÇÃO TERÁ 
UMA COMPILAÇÃO RÁPIDA 


Os ficheiros fonte podem ser salvaguardados em fita magné- 
tica e podemos portanto carregar os programas quando 
necessitarmos deles. 

Também é possível executar a fusão de vários programas 
fonte. 

Um procedimento (sub-programa em PASCAL) pode ser 
guardado isoladamente e ser inserido isoladamente entre 


duas linhas de um programa fonte se ele contiver o pseudo- 
-comentário de compilação INCLUDE. 

A compilação é rápida. Existirá uma paragem desde que seja 
detectado um erro, no entanto, o utilizador está autorizado a 
retirar rapidamente a linha em causa no decurso da compila- 
ção ou editar e modificar. 

Em anexo à documentação, existe uma lista em que são 
apresentados os 72 códigos de erro possíveis e respectiva 
correspondência (erros detectados durante a compilação). 

Outra lista apresenta os 11 códigos de erro possíveis durante 
a execução, tais como por exemplo, a ultrapassagem da 
capacidade ou uma divisão por zero. 

Os parâmetros da compilação estão colocados em pseudo- 
-comentários precedidos do caracter $. 

As opções do compilador são seguidas de + ou de — segun- 
do a opção esteja ou não activa. 

Opção L — autoriza ou não a listagem do texto fonte e do 
endereg do código objecto. 

Opção O — verifica ou não a ultrapassagem da capacidade 
das operações aritméticas (overflow). 

Opção S — determina se o controlo da pilha é executado. 
Opção A — assegura os limites definidos na secção de 
declaração das variáveis. 

Opção P — permite obter a listagem da compilação na 
impressora. 

Opção C — teremos um ganho de 6% sobre o funcionamen- 
to normal, dado que deixa de controlar periodicamente se a 
tecla de BREAK foi premida. 

Podemos guardar em fita magnética o programa objecto 
(o código compilado), bem como os programas de execução, 
sem compilador, dispondo assim de um programa que se 
carregará simplesmente através do comando BASIC «load», 
e será executado automaticamente! 

O programa de ordenação que em BASIC demora cerca de 
3 minutos, ao ser traduzido para PASCAL será executado em 
2 segundos (ordenar cerca de 100 números). 

É preciso ver que os números tratados em BASIC são em 
vírgula flutuante, codificados em cinco bytes, enquanto que 
em PASCAL HS4T nós pedimos a ordenação dos números 
inteiros codificados em oito bytes. 

Para tentar comparar coisas comparáveis, é preciso modifi- 
car o programa PASCAL para que ele possa executar a orde- 
nação de uma centena de números reais codificados em 
quatro bytes. 

Mesmo assim o tempo de ordenação será de 4 segundos. 
Outro exemplo, este agora o de um programa invertendo os 
45 000 pixe!'s do écran, ou seja imprimindo um ponto onde 
anteriormente ele não existia ou eliminando o ponto se ele 
existe no écran, confirmará a potência do PASCAL em rela- 
ção ao BASIC. 

O programa BASIC usa as funções POINT (x,y) e PLOT- 
-OVER, realizando a operação em cerca de 10 minutos. 
Em PASCAL usando os procedimentos POINT e PLOT (tal 
como estão descritas no modo de emprego do H4T) teremos 
o mesmo resultado em 1 minuto e 1/4, ou seja uma relação 
de tempo de 7.5. 

Note-se que o mesmo programa escrito exclusivamente em 
linguagem máquina, terá uma duração de 8 segundos. 
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Em relação ao PASCAL standard encontraremos procedi- 
mentos e funções suplementares. 

PEEK e POKE podem gerar vários bytes, contrariamente aos 
seus equivalentes BASIC. 

TIN e TOUT permitem carregar ou gravar as variáveis na fita 
da cassette. 

INP e OUT permitem comunicar com as portas de saída. 


CLUBE Zs0 


Os comandos tais como POINT, BORDER, SCREEN, etc. 
não estão disponíveis, mas podem ser introduzidos num pro- 
cedimento graças a função INLINE. 


Em conclusão, se descobriu o BASIC quando encontrou 
o material da Sinclair, aposte agora em descobrir uma lingua- 
gem potente e estruturada com o PASCAL HP4T. 


Programa de ordenacao em BÁSIC - tratamento em 3 minutos 


1 REM sxxxxx* ORDENAR s**242H%%% 

10 INPUT 5 

20 DIM TcéS) 

30 LET NN=S 

40 LET Ni=NN+1 

50 FOR N=1 TO NN:LET ToND=Ni-N:ENEXT N 

60 PRINT "SERIE INICIAL" 

70 GOSUB 500 

80 FOR 1I=2 TO NN 

20 FOR J=NN TO I STEP -i 

100 IF T<J-1) > T<J) THEN LET X=TéJ-1): LET 
TéJ-i) = Tódd: LET ToJd=X 

110 NEXT q 

120 NEXT 1 

130 PRINT TAB 0;"ORDENACAO -METODO TROCAR -* 

140 GOSUB 500 

150 STOP 

3900 FOR N=1 TO NN: PRINT TEND;" "5:NEXT N 

910 RETURN 


NOVO LIVRO 


«THE MICROCOMPUTER USER'S BOOK OF 
TAPE RECORDING», Mike Salem, Duckworth, 
Londres, 1984. 


Um guia completo para escolher e usar um gravador 


para o seu micro. 


SECÇÕES: - Como trabalha o seu sistema - Esco- 
lher um gravador - Testar e ajustar um gravador 
- Manter o gravador em bom estado - Selecção de 
fitas de gravação - Como «carregar» fitas difíceis 
* Como funciona um gravador. 


Preço (fotocópias): 200$00 


PROGRAMA DE ORDENAÇÃO EM PASCAL - HP4T - 
tratamento em 2 segundos 


ACOIS 10 PROGRAM ORDENAR 
ACSS 20 CONST NN=100 


ADB9 220 
AD8S 240 THEN BEGIN o 
AD98 250 X:=TAB (J-1; 

ADCO 260 TAB (J-1) :=TAB(J); 
AEOS 270 TAB(J) :=X 

AE23 280 END 


AEZE 290 END 

BE32 300 END; 

AE40 310 

AE40 320 

AE4O 330 BEGIN 
AE49 340 Nis=NN+I; 


AC53 30 VAR TAB:ARRAY <1...100) 
OF INTEGER ; 

ACSC 40 N,NI: INTEGER; 

ACSC 50 

ACSC 40 

ACSC 70 PROCEDURE IMPTAB; 

ACSF 80 VAR N: INTEGER; 

ACSF 90 BEGIN 

AC77 100 FOR N:=1 TO NN DO 
WRITE (TAB EN), * ) 

ACDI 110 END; 

ACDB 120 

ACDB 130 


ACDB 140 PROCEDURE TROCA; 
ACDE 150 VAR 1,J,X: INTEGER; 


ACDE 170 BEGIN 
ACF ó 180 FOR 1:=2 TO NN DO 


ADI? 200 BEGIN 
ADIC 210 FOR J:=NN DOWUNTO I DO 
BáD43 220 IF TAB cJ-l) > TAB cd) 


RESO 350 FOR N:=1 TO NN DO 

RE &B 370 WRITELN “SERIE INICIALOO; 

BEBB 380 IMPTAB; 

BECO 390 WRITELN; 

BEC3 400 TROCA; 

BECS 410 WRITELN ““ ORDENAR-METODO 
TROCAR-“ 2; 

BEES 420 IMPTAB 

BEES 3430 END. 

End âddress : AEEC 

Run ? 


k 
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ENDURO 


Jogo de perícia que consiste em ultrapassar o n.º de carros indicados no jogo, e para cada dia que passa, o n.º de carros a 
ultrapassar aumenta. 

No primeira dia temos que ultrapassar 200 carros, no 2.º dia 300 carros, no 3.º dia 400 carros, e assim sucessivamente. Cada dia 
é constituído por 3 fases (Manhã, tarde), (anoitecer, noite), (amanhecer, manhã) em que cada uma delas vai apresentar maiores 
ou menores dificuldades. Pistas de gelo, nevoeiro, em que só se vêm os farolins traseiros dos carros, etc. ...... O n.º de carros é 
ilimitado, e o jogo acabará só quando se passar de um dia para outro sem que se tenha ultrapassado o n.º previsto de carros. 
O jogo indica-nos o n.º de carros que nos falta ultrapassar. 


FRANK'N STEIN 


Você é o cientista louco que quer montar o monstro, acoplando-lhe membros de outros seres humanos. Para isso, terá que 
andar a recolher os membros por ordem (crânio, costela direita, costela esquerda, etc....) e cuidado com os seres e objectos que 
o perseguem, assim como violentas descargas eléctricas, se pisar alguma lâmpada. Em cada nível existem molas que lhe 
permitirão, se se puser em cima delas, saltar para um nível superior. O grande problema é que FRANK'NSTEIN revolta-se contra 


9 seu dono e criador, e através da passagem de vários cenários. Você terá sempre, que tentar desactivá-lo, o que nem sempre 


será fácil. O programa tem gráficos de alta definição e algumas dezenas de cenários diferentes. 


PYJAMARAMA 


Bem vindo ao pesadelo do mundo de Wall Week. Todas as noites, Wally tem um pesadelo para defrontar. A partir do momento 
em que substituis Wally não poderás dormir como uma pessoa normal. | 

Podes acordar como eu, e usar um relógio despertador; deste modo quando soar o despertador, desaparece O pesadelo. 
Durante o pesadelo, terás que levar a cabo certas tarefas, que exigem a recolha de objectos, e em certos casos, apenas poderás 
recolher um se estiveres previamente na posse de um outro. 

Apenas podes ser portador de dois objectos simultaneamente. Se aparece outro que não podes transportar, podes saltar por 
cima dele. 

Existem diferentes salas na casa onde estás e a energia que possuis é um factor importante, pelo que para refazeres a tua 
energia terás de ir comer a diferentes salas. Possuis «3 vidas» e tens possibilidade de refazeres a tua energia 3 vezes. 
Poderás usar Joystick ou Teclado. 


GIANT'S REVENGE 


Após o programa estar instalado na máquina, terá de dar entrada a 4 cores codificadas. Se existir um erro até à terceira entrada, 
pode usar «S» e recomeçar. 

Se três das entradas estão correctas e a num. 4 estiver errada o programa «vai ao ar» e terá de introduzir o programa de novo. 
Trata-se de uma aventura, em que JACK vai pesquisar uma caverna, a partir de um buraco que JACK encontra no seu jardim. 
=xistem nessa caverna, imensos tesouros e o «Elixir da Vida» que JACK vai tirar ao Gigante. O programa é compatível com 
Joystick. 


FACTORY BREAKOUT 


Você é o ZIRKY, o último Robot que resta de uma fábrica e que está louco. O nosso objectivo é escapar através dos 3 cenários 
do jogo. 

No primeiro objectivo é escapar através dos 3 cenários do jogo. 

No primeiro cenário ZIRKY está numa cápsula-ovo e deve destruir os micro-raios que o rodeiam antes que lhe toquem. Quando 
a coluna de energia que está por baixo chegar até ele, é transportado para o tapete rolante que o conduzirá ao 2.º cenário. 
No 2.º cenário, ZIRKY deve passar para o outro lado do cenário, sem ser atingido pelos raios dos conversores de energia. 
Na 3.º fase do jogo, encontrará uma chave para sair da fábrica, mas primeiro terá que passar pelas 12 portas que estão no seis 
níveis, tomando-as encamadas e depois azuis (o que as fecha). Há 4 campos de forças que o ajudam a combater os monstros e 
a fechar as portas. 


DAMAS 


O tradicional jogo de damas agora para o Spectrum, 48K ou 16K, funciona com os movimentos normais de acordo com as 
normas que os portugueses usam ou seja a DAMA anda quantas casas quiser. 


PREÇO DE CADA JOGO: 400$00 


DESCONTO DE 20% PARA SÓCIOS DO CLUBE 


Po. om -. 


MERCADO Z80 


O MERCADO Z80 É UMA SECÇÃO DO CLUBE Z80 QUE 
EMPRESA AOS SEUS SÓCIOS PROGRAMAS E LIVROS 
(SPECTRUM) PARA CONSULTA E MELHOR CONHECI- 
MENTO/APROVEITAMENO DE MICROCOMPUTADORES. 


— PROGRAMAS: Todos os jogos e utilitários que exis- 
tem no CLUBE Z80, excepto programas de cópia e 
programas com direitos de autor (Ex.: “Cálculo de 
Estruturas”). 


— LIVROS: Cerca de 40 títulos diferentes. 


COMO TORNAR-SE SÓCIO DO MERCADO Z80? 


Para poder ter em sua posse 5 cassetes ou livros durante um 
mês, basta enviar-nos um depósito de Esc. 2000800 (garantia 
de que os materiais nos serão devolvidos em estado de con- 
servação e funcionamento idêntico aquele em que foram 
enviados). 

Ao mesmo tempo, deverá remeter-nos a quantia de Esc. 
1000$00 que será a base da sua “Conta-Corrente”. Essa 
quantia servirá para pagar as suas despesas: 


— Taxa de utilização dos produtos: 250800 (referente a 5 
unidades, entre livros e programas). 


— Instruções dos programas (no caso de o sócio não as 
devolver, debitar-lhe-emos 5$00 por folha). 


— Embalagem Postal: 20800 a 30$00 (no caso de o pedi- 
do ser feito via CTT. 


— Portes dos CTT's: 40800 a 80$00 (no caso de o pedido 
ser feito via CTT. 


IMPORTANTE! 


— O depósito de 2000$00 pertence integralmente ao sócio 
desde que os materiais por ele utilizados nos sejam devol- 
vidos nas mesmas condições em que saíram do CLUBE 
Z80. Assim, quando o sócio desistir do MERCADO Z80, 
essa quantia ser-lhe-á entregue. 

Em caso de extravio, danos ou avarias dos materiais, O 
sócio pagará o valor comercial dos respectivos produtos (a 
descontar no depósito de 2000800). 


— No caso de os produtos seguirem via CTT, o sócio não 
pagará para levantar a encomenda. As despesas serão 
pagas por nós, no momento da expedição, e debitadas ao 
sócio (a descontar no depósito de 1000800). 


— Quando as suas despesas estiverem a atingir os 1000800 
avisá-lo-emos, e o sócio deverá renovar essa quantia de 
modo a cobrir despesas seguintes. 


— A taxa de utilização dos produtos é fixa — 250800. Ela 
refere-se ao conjunto de 5 unidades. (Pagará sempre 
250800 mesmo que peça só uma unidade). 


QUE PRODUTO E QUE QUANTIDADES? 


O sócio nunca pode pedir mais do que 5 unidades de cada vez 
(entre livros e cassetes). Quanto a livros não poderemos em- 
presar mais do que um. Assim, o sócio poderá pedir: 


— 5 cassettes 
ou 
— 4 cassettes + 1 livro 


QUAL O TEMPO DE UTILIZAÇÃO? 


O sócio poderá ficar com os produtos durante 1 MÊS, no 
máximo. Findo esse período, deverá devolvê-los ao CLUBE 
Z80. 

O MERCADO Z80 só atenderá dois pedidos por mês, para 
cada sócio. 


COMO FAZER O PEDIDO? 


Numa carta, escreva pelo menos 10 títulos (por ordem de 
prioridade). Se os 5 primeiros não estiverem disponíveis, en- 
viaremos os outros evitando grandes esperas de produtos que 
estejam em circulação. 

Ao devolver os produtos, inclua uma carta com o pedido 
seguinte. 


IMPORTANTE! O SÓCIO SÓ PODERÁ EFECTUAR UM 
NOVO PEDIDO JUNTAMENTE COM A DEVOLUÇÃO DO 
MATERIAL CORRESPONDENTE AO PEDIDO ANTERIOR 
(ou depois, se preferir). 


Se estiver interessado no MERCADO Z80, faça já o seu 1.º 
pedido, enviando 3000$00 e o cupão abaixo devidamente 
preenchido. 


INSCRIÇÃO NO MERCADO Z80 


NOME 
ENDEREÇO 
CÓDIGO POSTAL 
TELEFONE 


ENVIO 3 000800 (2 000$00 como garantia de que devolverei os produtos em boas condições + 1 000800 para a minha 


«Conta Corrente» em: 


se 


Cheque n.º 


Banco 


e 7 A A Assinatura do Sócio 


É SÓCIO DD CLUBE Z80? 


id 


Vale Postal 


= 


Dinheiro 


[] SIM [|] NÃO 


CLUBE Z& 


INSCRIÇÃO COMO ASSOCIADO 


O CLUBE Zso está aberto a todos os utilizadores de microcomputadores. 
A intenção de associar os entusiastas das micro-máquinas, é exclusivamente a de permitir: 


1 — PUBLICAÇÃO DE UM JORNAL MENSAL, onde sejam publicados programas de uso geral ou específico 
como no caso da educação. 


2 — PROMOVER TROCAS DE PROGRAMAS, e trocas de experiências; tanto no caso do Software (programa- 
ção), como no caso do Hardware (electrónica). 


3 — PROMOVER DESCONTOS NA AQUISIÇÃO DE PROGRAMAS. 


4 — LANÇAR CURSOS DE PROGRAMAÇÃO EM BASIC — PASCAL OU OUTRAS LINGUAGENS E DIVULGAR 
O USO DE LINGUAGEM MÁQUINA. 


E RS O ta ae 

DADE qe ao E E 

co OS SR DNS 

804 ao 

eee ercirea carece acer aterrar E PEN PE 
ASSINATURA ANUAL — Esc. 1 500800 L[] 


ASSINATURA SEMESTRAL -— Esc. 750800 [] 


CHEQUE OU VALE DO CORREIO 


JÁ SÓCIO E 
cerco cc TO E | E O (inclusive) 


